Table 1 (conf) 



for (nn = nm = 0, more = 1; more; ) { ...pr_align 

for (i = more = 0; i < 2; i++) { ~~ 
/* 

* do we have more of this sequence? 
*/ 

if(!*ps[i]) 

continue; 



if (pp[i].spc) { /* leading space */ 
*po[i]++ = ' '; 
pp[i].spc~; 

15 > 

else if (siz[ij) { /* in a gap */ 
*po[i]++ = '-*; 
siz[i]-; 

20 else { /* we're putting a seq element 

*/ 

*po[i] = *ps[i]; 
ifCislower(*ps[i])) 

^s[i] = toupper(*ps[i]); 

25 pop] ++; 

~ psp] ++; 

/* 

* are we at next gap for this seq? 

30 */ 

if(ni[i] ==pp[i].x[ij[i]]){ 

/* 

* we need to merge all gaps 

* at this location 
*/ 

siz[i] =ppli].n[ij[i] + +]; 
while (ni[i] ==pp[i].x[ij[i]]) 

siz[i] +=pp[i].n[ij[i3 + +]; 



35 



} 



} 

ni[ij+ 



} 

if (++nn == olen [ | !more && nn) { 
dumpblockO; 

45 for(i = 0;i<2;i++) 

po[i] = out[i]; 

nn = 0; 

} 

50 } } 

/* 

* dump a block of lines, including numbers, stars: pr_align0 
*/ 

55 static 

dumpblockO dumpblock 

register i; 

60 for(i = 0;i<2;i++) 

*po[i]~ = '\0'; 
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(void)putcC\n',fx); 
for(i = 0; i < 2; i++){ 

if (*out[i] && (*out[i] ! = 
if(i==0) 



..dumpblock 



* ll*<po[i])!='*)){ 



nums(i); 
if(i==0&&*out[l]) 
starsO; 

putline(i); 

if(i==0&&*out[l]> 
iprintf(fx, star); 

if(i==l) 

nums(i); 



} 

/* 

* put out a number line: dumpblockO 

*/ 

static 



/* index in outQ holding seq line */ 
nlineCPLINEl; 

i,j; 

*pn, *px, *py; 



for (pn = nline, i = 0; i < lmax+PSPC; i + +, pn++) 
*pn = ' '; 

for (i = nc[ix], py = out[ix]; *py; py+ +, pn++) { 
— = =•• ||* py ==<_•> 
•pa = ' 



if(*py = 
e{ 



if (i%10 == 0 1 1 (i == 1 && ncpx] !=!)){ 
j = (i < 0)? -i : i; 
for (px = pn; j; j /= 10, px~) 
*px = j%10 + '0'; 

if(i<0) 

*px = 

> 



} 



> 



*pn = 



*pn = *\0*; 
ncpx] = i; 

for (pn = nline; *pn; pn+ +) 
(void) putc(*pn, fx); 
(void) putc('\n\ fx); 



* put out a line (name, [num], seq, [num]): dumpblockO 

static 
putline(ix) 



putline 
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} 

20 

/* 



40 



...outline 

int i; 
register char *px; 

for (px = namexpx], i = 0; *px && *px != V; px+ +, i++) 

(void) putc(*px, fx); 
for (; i < Imax+P SPC; i++) 

(void) putc(' fx); 

/* these count from 1: 

* niQ is current element (from 1) 

* ncQ is number at start of current line 
*/ 

for (px = out[ix]; *px; px++) 

(void) putc(*px&0x7F, fx); 
(void) putc('\n\ fx); 



* put a line of stars (seqs always in out[0], out[l]): dumpblockO 



static 
25 starsO 
{ 



*p0, *pl, cx, *px; 



30 if (!*out[0I 1 1 (*out[0j ==••&& *(po[0]) = = • •) 1 1 

!*out[l] 1 1 (*out[l] = ="&& *(po[l]) ==")) 
return; 
' px = star; 

for (i = lmax+P_SPC; i; i-) 
35 *px++ = "; 

for (pO = out[0], pi = out[l]; *p0 && *pl; p0+ +, pi + +) { 
if (isalpha(*pO) && isalpba(*pl)) { 



if (xbmPpO-'A'l&xbmPpl-'A']) { 
cx = •*"; 
nm++; 



eif (!dna&&_day[*pO-'A'][*pl- , A'] > 0) 
cx = '.'; 
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55 > 



> 

else 

cx = ' 
*px++ = cx; 

} 

*px++ = '\n'; 
*px = *\0'; 



60 
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